Inference at * 1 1 
Iof proof for Lemma neg mul arg bounds:



1. a : 
2. b : 
3. ((-(a * b)) > (-0))  ((((-a) > (-0)) & (b > 0))  (((-a) < (-0)) & (b < 0)))
  ((a * b) < 0)  (((a < 0) & (b > 0))  ((a > 0) & (b < 0))) 

latex

 by InteriorProof ((RWH (RevLemmaC `minus_mono_wrt_lt`) 3) 
CollapseTHENA ((Auto_aux (first_nat 
CollapseTHENA ((Au1:n) ((first_nat 1:n),(first_nat 3:n)) (first_tok :t) inil_term))) 

latex

C1: 

C1: 3. (0 > (a * b))  (((0 > a) & (b > 0))  ((a > 0) & (b < 0)))
C1:   ((a * b) < 0)  (((a < 0) & (b > 0))  ((a > 0) & (b < 0)))
C.

Definitions	P  Q, P  Q, P  Q, , t  T, P & Q, P  Q, i > j, x:A. B(x)
Lemmas	and functionality wrt iff, or functionality wrt iff, minus mono wrt lt, iff functionality wrt iff, gt wf